home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok83.lha / TKEd / Test.txt < prev    next >
Encoding:
Text File  |  1993-08-15  |  3.8 KB  |  144 lines
  1. sadsadsa
  2. sadsa
  3. sadsa
  4. sa
  5. END CheckVirus;
  6. (*------------------------------------------------------------------------*)
  7. PROCEDURE RawKeyConvert  {console,-48} ( events{8} :ie.InputEventPtr;
  8. (*On*)                                   buffer{9} :LONGINT;
  9.                                          length{1} :LONGINT;
  10.                                          keyMap{10}:LONGINT);
  11. (*Off*)
  12. (*------------------------------------------------------------------------*)
  13. PROCEDURE RawKeyToASCII* (VAR code1       : INTEGER;
  14. (*On*)                    VAR qualifier1  : SET;
  15.                           VAR address1    : e.ADDRESS) : INTEGER;
  16.  
  17. (* Same procedure as Req.RawKeyToAscii *)
  18.  
  19. VAR
  20.   ievent  : ie.InputEventAdr;
  21.   Buffer  : ARRAY 33 OF CHAR;
  22.   aPtr    : POINTER TO sys.ADDRESS;
  23. BEGIN
  24.     aPtr             := address1;
  25.     RawKeyConvert(sys.ADR(ievent),sys.ADR (Buffer[0]),32,NIL);
  26.     RETURN ORD(Buffer[0]);
  27. END RawKeyToASCII;
  28. (*Off*)
  29. (*------------------------------------------------------------------------*)
  30. MODULE TKEdFunk8;
  31. (*On*)
  32. (* $CaseChk- $NilChk- $OvflChk- $RangeChk- $ReturnChk- $StackChk- $TypeChk- *)
  33. IMPORT
  34.   c   : Conversions,
  35.   sys : SYSTEM,
  36.   TK0 : TKEdFunk0,
  37.   TK1 : TKEdFunk1,
  38.   wb  : Workbench;
  39.  
  40. CONST
  41.  
  42. VAR
  43.   console   : e.DevicePtr;
  44.   wreq      : e.IOStdReq;
  45. (*Off*)
  46. (*-----------------------------------------------------------------------*)
  47. PROCEDURE MarkAllText* (Root : TK1.LinePtr);
  48. (*On*)
  49. VAR
  50.   ShowText  : TK1.LinePtr;
  51. BEGIN
  52.   TK0.MarkBeg := 1;
  53.   TK0.MarkEnd := TK0.LineNr;
  54. END MarkAllText;
  55. (*Off*)
  56. (*-----------------------------------------------------------------------*)
  57. PROCEDURE CallIconify* (): BOOLEAN;
  58. (*On*)
  59. VAR
  60.   wi    : i.NewWindow;
  61.   IMes  : POINTER TO i.IntuiMessage;
  62.   Len   : INTEGER;
  63.   wbheight: INTEGER;
  64. BEGIN
  65.   TK0.TMP^[0]  := 0X;
  66.   s.Append (TK0.TMP^, TK0.FileName^);
  67.   TK0.Win1  := NIL;
  68.   RETURN (Moved);
  69. END CallIconify;
  70. (*Off*)
  71. (*-----------------------------------------------------------------------*)
  72. PROCEDURE DelAppWin* ();
  73. (*On*)
  74. VAR
  75.   AMes  : POINTER TO wb.AppMessage;
  76. BEGIN
  77.   IF TK0.Appwi # NIL THEN
  78.     IF wb.RemoveAppWindow (TK0.Appwi) THEN END;
  79.     TK0.Appwi := NIL;
  80.   END;
  81. END DelAppWin;
  82. (*Off*)
  83. (*-----------------------------------------------------------------------*)
  84. PROCEDURE MakeAppWin* () : SHORTINT;
  85. (*On*)
  86. VAR
  87.   wi    : i.NewWindow;
  88.   wbheight: INTEGER;
  89. BEGIN
  90.   RETURN (TK0.AppPort^.sigBit);
  91. END MakeAppWin;
  92. (*Off*)
  93. (*---------------------------------------------------------------------*)
  94. PROCEDURE CheckVirus* ();
  95. (*On*)
  96. VAR
  97.   MyFile      : mf.File;
  98.   FileSize    : LONGINT;
  99.   TMP         : ARRAY 170 OF CHAR;
  100. BEGIN
  101. sadsadsa
  102. sadsa
  103. sadsa
  104. sa
  105. END CheckVirus;  
  106. (*Off*)
  107. (*------------------------------------------------------------------------*)
  108. PROCEDURE RawKeyConvert  {console,-48} ( events{8} :ie.InputEventPtr;
  109. (*On*)                                   buffer{9} :LONGINT;
  110.                                          length{1} :LONGINT;
  111.                                          keyMap{10}:LONGINT);
  112. (*Off*)
  113. (*------------------------------------------------------------------------*)
  114. PROCEDURE RawKeyToASCII* (VAR code1       : INTEGER;
  115. (*On*)                    VAR qualifier1  : SET;
  116.                           VAR address1    : e.ADDRESS) : INTEGER;
  117.  
  118. (* Same procedure as Req.RawKeyToAscii *)
  119.  
  120. VAR
  121.   ievent  : ie.InputEventAdr;
  122.   Buffer  : ARRAY 33 OF CHAR;
  123.   aPtr    : POINTER TO sys.ADDRESS;
  124. BEGIN
  125.     aPtr             := address1;
  126.     RawKeyConvert(sys.ADR(ievent),sys.ADR (Buffer[0]),32,NIL);
  127.     RETURN ORD(Buffer[0]);
  128. END RawKeyToASCII;
  129. (*Off*)
  130. (*------------------------------------------------------------------------*)
  131. BEGIN
  132. IF rt.req # NIL THEN
  133.   TK0.i1 :=  e.OpenDevice("console.device",-1,sys.ADR(wreq),LONGSET{});
  134.   IF TK0.i1 # NIL THEN
  135.     TK0.NilTest (NIL);
  136.   END;
  137.   console := wreq.device;
  138. END;
  139. CLOSE
  140. IF rt.req # NIL THEN
  141.   IF console # NIL THEN e.CloseDevice(sys.ADR(wreq)) END;
  142. END;
  143. END TKEdFunk8.
  144.